COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  external  simple  integer  procedure  dirn(integer  d)
C00003 ENDMK
C⊗;
  external  simple  integer  procedure  dirn(integer  d);

  external  SIMPle  boolean  procedure  samedir(integer  d1,d2,diff);
  external  SIMPle  boolean  procedure  same8dir(integer  d1,d2,diff);
  external  simple  procedure  nextcoord(integer  d;  reference
  integer  r, c);
  external  simple  integer  procedure  altdir(integer  dd, itr);
  external  simple  integer  procedure  growthdir(integer  dd);
  external  simple  integer  procedure  pred(integer  n);
  external  simple  integer  procedure  succ(integer  n);